Apple Reference & Presen…tion Library 4 (Reseller)/Apple Ref. & Pres. Lib.v4.0.iso/6-Apple⁄DEC Alliance/Solutions & Networking Guide/Macintosh Networking Guide/Macintosh Networking Guide/card_16430.txt

Text File | 1990-04-17 | 15KB | 676 lines

-- card: 16430 from stack: in
-- bmap block id: 16817
-- flags: 0000
-- background id: 18894
-- name: MacCloseUp3
----- HyperTalk script -----
on openCard
  global holder,env,sol
  put empty into card field "Explainer"
  put empty into card field "Choice"
  put empty into card field "Category"
  put empty into fld "Tell"
  put empty into cd fld "Network"
  put sol into cd fld "sol"
  put "Macintosh" into cd fld "env"
  hide cd btn "explainerHiliter"
  hide cd btn "solChoiceHilite"
  hide cd btn "solListHiliter"
  hide cd fld "solList"
  --engine begin
  put card field (env && sol) of card "Mac Grid" into holder
  if holder is empty
  then
  put "No Solutions installed in this version" into card fld "Explainer"
  exit openCard
end if
repeat with i = 1 to the number of lines of holder
  if item 1 of line i of holder <> empty then
    put item 1 of line i of holder & return after card field "Explainer"
  end if
end repeat
end openCard


on mouseUp
  --beep 1
  --put "This needs to keep track of which level you came from, JONATHAN."
  --•using the level buttons seems the best way, offhand, that way
  --•the hilited button is the structure.  JON
  set lockscreen to true
  --send mouseUp to cd btn id 20
  unlock screen with dissolve
end mouseUp

on closeCard
  put empty into fld "Tell"
  set hilite of cd btn id 20 to false
  set hilite of btn id 19 to false
  set scroll of cd fld "Explainer" to zero
end closeCard

on extractMac
  global sol,env,holder
  --environments,envnum,solutions,solnum,holder
  get card field (env && sol) of card "Mac Grid"
  put empty into holder
  repeat with i = 1 to the number of lines of it
    if item 1 of line i of it <> empty then
      put line i of it & return after holder
    end if
  end repeat
end extractMac

on extractHost
  global sol,env,holder
  get card field (env && sol) of card "Mac Grid"
  put empty into holder
  repeat with i = 1 to the number of lines of it
    if item 2 of line i of it <> empty then
      put line i of it & return after holder
    end if
  end repeat
end extractHost

on parseReads
  global holder,Reads2,prodname3
  put empty into Reads2
  repeat with i = 1 to the number of lines of holder
    if item 1 of line i of holder is prodname3 then
      put item 4 of line i of holder into dotnames
      repeat
        put offset("•",dotnames) into num
        if num is empty or num is 0 then exit repeat
        put char 1 to (num - 1) of dotnames & return after Reads2
        delete char 1 to num of dotnames
      end repeat
    end if
  end repeat
end parseReads

on parseWrites
  global holder,Writes2,prodname3
  put empty into Writes2
  repeat with i = 1 to the number of lines of holder
    if item 1 of line i of holder is prodname3 then
      put item 5 of line i of holder into dotnames
      repeat
        put offset("•",dotnames) into num
        if num is empty or num is 0 then exit repeat
        put char 1 to (num - 1) of dotnames & return after Writes2
        delete char 1 to num of dotnames
      end repeat
    end if
  end repeat
end parseWrites

on parseNetwork
  global holder,Network2,prodname3
  put empty into Network2
  repeat with i = 1 to the number of lines of holder
    if item 1 of line i of holder is prodname3 then
      put item 6 of line i of holder into dotnames
      repeat
        put offset("•",dotnames) into num
        if num is empty or num is 0 then exit repeat
        put char 1 to (num - 1) of dotnames & return after Network2
        delete char 1 to num of dotnames
      end repeat
    end if
  end repeat
end parseNetwork




-- part 41 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=0 right=303 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: mask


-- part 2 (field)
-- low flags: 01
-- high flags: 2007
-- rect: left=170 top=63 right=148 bottom=421
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 242
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Explainer
----- HyperTalk script -----
on mouseUp
  global holder,prodname3,Reads2,Writes2,Network2
  set cursor to busy
  set hilite of btn id 20 to false
  set hilite of btn id 19 to false
  put empty into cd fld "Reads"
  put empty into cd fld "Writes"
  put empty into cd fld "Network"
  put empty into cd fld "Category"
  --∆ Get product name and hilite
  put selectionAndHiliter() into cardline
  put line cardline of me into prodname3
  if prodname3 is empty
  then
  answer "Empty Choice!" with "Try Again"
  exit mouseup
end if
put prodname3 into cd fld "choice"
repeat with i = 1 to the number of lines of holder
  if item 1 of line i of holder is prodname3
  then
  put item 3 of line i of holder into cd fld "Category"
  parseReads
  put Reads2 after cd field "Reads"
  parseWrites
  put Writes2 after cd field "Writes"
  parseNetwork
  put Network2 after cd field "Network"
  exit repeat
end if
end repeat
hide cd btn "explainerHiliter"
end mouseUp

on mouseEnter
  changeCurs 6069
  put "Products Field" & return & "click to select a product" into fld "Tell"
end mouseEnter

on mouseLeave
  changeCurs 69
  put empty into fld "Tell"
end mouseleave
On mouseDown
  Global ClickSND
  play ClickSND
End mouseDown


-- part 5 (field)
-- low flags: 01
-- high flags: 2000
-- rect: left=84 top=168 right=188 bottom=275
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 242
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: Choice
----- HyperTalk script -----
on mouseUp
  get me
  if it is empty
  then
  put "Choose a Product!" into fld "Tell"
  exit mouseUp
else
  put char 1 to 26 of it into prod
  push card
  visual effect dissolve
  go card prod of stack "Products"
end if
end mouseUp

on mouseEnter
  put "'Product Chosen' Field" & return & "click for more info" into fld "Tell"
end mouseEnter
on mouseLeave
  put empty into fld "Tell"
end mouseleave
On mouseDown
  Global ClickSND
  play ClickSND
End mouseDown


-- part 12 (field)
-- low flags: 01
-- high flags: 2000
-- rect: left=275 top=168 right=188 bottom=421
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 242
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Category
----- HyperTalk script -----
on mouseEnter
  put "'Category' Field" & return & "" into fld "Tell"
end mouseEnter
on mouseLeave
  put empty into fld "Tell"
end mouseleave


-- part 17 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=167 top=272 right=304 bottom=345
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 19 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=94 top=265 right=282 bottom=248
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 132
-- text size: 12
-- style flags: 8192
-- line height: 16
-- part name: Get Vendor Info
----- HyperTalk script -----
on mouseUp
  if cd field "Choice" is empty
  then
  put "Select a Product!" into fld "Tell"
  exit mouseUp
else
  send mouseUp to cd fld "Choice"
end if
end mouseUp

on mouseDown
  Global ClickSND
  play ClickSND
end mouseDown

on mouseEnter
  changeCurs 6069
  put "Go to Products Button" & return & "goes to the product card" into fld "Tell"
end mouseEnter

on mouseLeave
  changeCurs 69
  put empty into fld "Tell"
end mouseleave



-- part 20 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=267 top=265 right=283 bottom=424
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 132
-- text size: 12
-- style flags: 8192
-- line height: 16
-- part name: Go Back to Room
----- HyperTalk script -----
on mouseUp
  global theRoom
  go to cd theRoom
  unlock screen with dissolve
end mouseUp

On mouseDown
  Global ClickSND
  play ClickSND
End mouseDown

on mouseEnter
  changeCurs 6069
  put "Return to Room Button" & return & "return to connectivity room" into fld "Tell"
end mouseEnter

on mouseLeave
  changeCurs 69
  put empty into fld "Tell"
end mouseleave




-- part 22 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=89 top=216 right=266 bottom=194
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 242
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Reads
----- HyperTalk script -----
on mouseEnter
  put "the file types this" & return & "application can open" into fld "Tell"
end mouseEnter
on mouseLeave
  put empty into fld "Tell"
end mouseleave


-- part 24 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=197 top=216 right=264 bottom=281
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 242
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Writes
----- HyperTalk script -----
on mouseEnter
  put "the file types the" & return & "application can save" into fld "Tell"
end mouseEnter
on mouseLeave
  put empty into fld "Tell"
end mouseleave


-- part 25 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=281 top=216 right=265 bottom=383
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 242
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Network
----- HyperTalk script -----
on mouseEnter
  put "network communication method" into fld "Tell"
end mouseEnter
on mouseLeave
  put empty into fld "Tell"
end mouseleave


-- part 30 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=12 top=0 right=30 bottom=211
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 156
-- text size: 18
-- style flags: 2048
-- line height: 24
-- part name: FloorName


-- part 31 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=89 top=60 right=143 bottom=167
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 242
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: headerX


-- part 34 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=170 top=49 right=63 bottom=234
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: env


-- part 35 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=237 top=49 right=63 bottom=375
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: sol


-- part 36 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=88 top=35 right=49 bottom=207
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: solChoices
----- HyperTalk script -----
on mouseUp
  show cd btn "solChoiceHilite"
  set the visible of cd field "solList" to not the visible of cd field "solList"
end mouseUp

on mouseEnter
  put "Change Solution Menu" & return & "click to show a list" into fld "Tell"
  changeCurs 6069
end mouseEnter

on mouseLeave
  put empty into fld "Tell"
  changeCurs 69
end mouseleave

On mouseDown
  Global ClickSND
  play ClickSND
End mouseDown


-- part 37 (button)
-- low flags: 80
-- high flags: 4000
-- rect: left=171 top=94 right=108 bottom=404
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: explainerHiliter


-- part 44 (button)
-- low flags: 80
-- high flags: 4000
-- rect: left=88 top=36 right=48 bottom=221
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: solChoiceHilite


-- part 46 (field)
-- low flags: 81
-- high flags: 0002
-- rect: left=88 top=48 right=147 bottom=221
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: solList
----- HyperTalk script -----
on mouseUp
  global sol
  --∆ select and highlight line
  put SelectionAndHiliter() into lineNumber
  --∆ Convert line number to the contents of the line
  do "put line " & lineNumber & " of " & name of me & " into name"
  --∆ test for empty selection
  if name is "" then
    play cymbal
    answer "Click directly on your choice" with "Try again!"
    exit mouseUp
  end if
  --∆ now hide menu and place new selection in card
  set lockScreen to true
  set cursor to busy
  put empty into cd fld "Reads"
  put empty into cd fld "Writes"
  put empty into cd fld "Network"
  put empty into cd fld "Choice"
  put empty into cd fld "Category"
  hide me
  hide cd btn "solChoiceHilite"
  hide cd btn "solListHiliter"
  put name into sol
  unlock screen
  send openCard to this card
end mouseUp

on mouseEnter
  put "Solutions Field" & return & "click to choose" into fld "Tell"
  changeCurs 6069
end mouseEnter

on mouseLeave
  put empty into fld "Tell"
  changeCurs 69
end mouseleave

On mouseDown
  Global ClickSND
  play ClickSND
End mouseDown


-- part 43 (button)
-- low flags: 80
-- high flags: 4000
-- rect: left=89 top=61 right=73 bottom=220
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: solListHiliter


-- part contents for card part 30
----- text -----
Macintosh Screen II

-- part contents for card part 31
----- text -----
Click on a product at right for more information:

-- part contents for card part 36
----- text -----
Solution Areas

-- part contents for background part 41
----- text -----



-- part contents for card part 35
----- text -----
Engineering/CAD

-- part contents for card part 34
----- text -----
Macintosh

-- part contents for card part 46
----- text -----
Info Management
Software Development


-- part contents for card part 2
----- text -----
auraCAD/CAM
AutoCAD for the Macintosh
Claris CAD
MicroStation Mac 3.5.1
MacBRAVO! DETAILER
MacBRAVO! ELECTRONICS DESIGNER
MacBRAVO! FACILITIES
MacBRAVO! MODELER
MSC/pal 2 V3.5
VersaCAD/Macintosh Edition 2.2
Mathematica For Macintosh


-- part contents for card part 5
----- text -----
Claris CAD

-- part contents for card part 12
----- text -----
CAD

-- part contents for card part 22
----- text -----
DXF
IGES
PICT


-- part contents for card part 24
----- text -----
DXF
IGES
PICT


-- part contents for card part 25
----- text -----
File Transfer